﻿object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Height = 409
  Width = 731
  object ConexaoExcel: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\Us' +
      'ers\marcos\Desktop\d_megasc.xls;Mode=Share Deny None;Jet OLEDB:S' +
      'ystem database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database ' +
      'Password="";Jet OLEDB:Engine Type=35;Jet OLEDB:Database Locking ' +
      'Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk' +
      ' Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Cre' +
      'ate System Database=False;Jet OLEDB:Encrypt Database=False;Jet O' +
      'LEDB:Don'#39't Copy Locale on Compact=False;Jet OLEDB:Compact Withou' +
      't Replica Repair=False;Jet OLEDB:SFP=False;'
    LoginPrompt = False
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 584
    Top = 16
  end
  object ImpConcursos: TADODataSet
    Connection = ConexaoExcel
    CursorType = ctStatic
    CommandText = 'select * from [Plan1$]'
    Parameters = <>
    Left = 672
    Top = 16
    object ImpConcursosConcurso: TFloatField
      FieldName = 'Concurso'
    end
    object ImpConcursosDataSorteio: TDateTimeField
      FieldName = 'Data Sorteio'
    end
    object ImpConcursosFloatField1ªDezena: TFloatField
      FieldName = '1'#170' Dezena'
    end
    object ImpConcursosFloatField2ªDezena: TFloatField
      FieldName = '2'#170' Dezena'
    end
    object ImpConcursosFloatField3ªDezena: TFloatField
      FieldName = '3'#170' Dezena'
    end
    object ImpConcursosFloatField4ªDezena: TFloatField
      FieldName = '4'#170' Dezena'
    end
    object ImpConcursosFloatField5ªDezena: TFloatField
      FieldName = '5'#170' Dezena'
    end
    object ImpConcursosFloatField6ªDezena: TFloatField
      FieldName = '6'#170' Dezena'
    end
    object ImpConcursosArrecadacao_Total: TFloatField
      FieldName = 'Arrecadacao_Total'
    end
    object ImpConcursosGanhadores_Sena: TFloatField
      FieldName = 'Ganhadores_Sena'
    end
    object ImpConcursosRateio_Sena: TFloatField
      FieldName = 'Rateio_Sena'
    end
    object ImpConcursosGanhadores_Quina: TFloatField
      FieldName = 'Ganhadores_Quina'
    end
    object ImpConcursosRateio_Quina: TFloatField
      FieldName = 'Rateio_Quina'
    end
    object ImpConcursosGanhadores_Quadra: TFloatField
      FieldName = 'Ganhadores_Quadra'
    end
    object ImpConcursosRateio_Quadra: TFloatField
      FieldName = 'Rateio_Quadra'
    end
    object ImpConcursosAcumulado: TWideStringField
      FieldName = 'Acumulado'
      Size = 255
    end
    object ImpConcursosValor_Acumulado: TFloatField
      FieldName = 'Valor_Acumulado'
    end
    object ImpConcursosEstimativa_Prêmio: TFloatField
      FieldName = 'Estimativa_Pr'#234'mio'
    end
    object ImpConcursosAcumulado_Natal: TFloatField
      FieldName = 'Acumulado_Natal'
      currency = True
    end
  end
  object ConexaoBanco: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=MegaSena;Data Source=MARCOS-PC;Use Procedure for Prep' +
      'are=1;Auto Translate=True;Packet Size=4096;Workstation ID=MARCOS' +
      '-PC;Use Encryption for Data=False;Tag with column collation when' +
      ' possible=False;'
    Provider = 'SQLOLEDB.1'
    Left = 40
    Top = 16
  end
  object Concursos: TADODataSet
    Connection = ConexaoBanco
    CursorType = ctStatic
    CommandText = 'select * from CONCURSO'
    DataSource = dtsImpResultados
    IndexFieldNames = 'HANDLE'
    MasterFields = 'CONCURSO'
    Parameters = <>
    Left = 40
    Top = 80
    object ConcursosHANDLE: TIntegerField
      FieldName = 'HANDLE'
    end
    object ConcursosDATA_SORTEIO: TDateTimeField
      FieldName = 'DATA_SORTEIO'
    end
    object ConcursosARRECADACAO_TOTAL: TFloatField
      FieldName = 'ARRECADACAO_TOTAL'
    end
    object ConcursosACUMULADO: TStringField
      FieldName = 'ACUMULADO'
      Size = 3
    end
    object ConcursosVALOR_ACUMULADO: TFloatField
      FieldName = 'VALOR_ACUMULADO'
    end
    object ConcursosESTIMATIVA_PREMIO: TFloatField
      FieldName = 'ESTIMATIVA_PREMIO'
    end
    object ConcursosACUMULADO_NATAL: TFloatField
      FieldName = 'ACUMULADO_NATAL'
    end
    object ConcursosI_USU: TStringField
      FieldName = 'I_USU'
      Size = 50
    end
    object ConcursosI_DATA: TDateTimeField
      FieldName = 'I_DATA'
    end
    object ConcursosTIPO_VIZINHOS: TStringField
      FieldName = 'TIPO_VIZINHOS'
      Size = 255
    end
  end
  object Dezenas: TADODataSet
    Connection = ConexaoBanco
    CursorType = ctStatic
    CommandText = 'select * from DEZENAS'
    DataSource = dtsConcursos
    IndexFieldNames = 'HANDLE_CONCURSO'
    MasterFields = 'HANDLE'
    Parameters = <>
    Left = 120
    Top = 80
    object DezenasHANDLE: TIntegerField
      FieldName = 'HANDLE'
    end
    object DezenasHANDLE_CONCURSO: TIntegerField
      FieldName = 'HANDLE_CONCURSO'
    end
    object DezenasNUMERO_DEZENA: TIntegerField
      FieldName = 'NUMERO_DEZENA'
    end
    object DezenasVALOR_DEZENA: TIntegerField
      FieldName = 'VALOR_DEZENA'
    end
    object DezenasI_USU: TStringField
      FieldName = 'I_USU'
      Size = 50
    end
    object DezenasI_DATA: TDateTimeField
      FieldName = 'I_DATA'
    end
    object DezenasFREQUENCIA: TIntegerField
      FieldName = 'FREQUENCIA'
    end
    object DezenasATRAZO: TIntegerField
      FieldName = 'ATRAZO'
    end
    object DezenasVIZINHOS: TStringField
      FieldName = 'VIZINHOS'
      Size = 3
    end
    object DezenasLINHA: TIntegerField
      FieldName = 'LINHA'
    end
    object DezenasCOLUNA: TIntegerField
      FieldName = 'COLUNA'
    end
  end
  object Ganhadores: TADODataSet
    Connection = ConexaoBanco
    CursorType = ctStatic
    CommandText = 'select * from GANHADORES'
    DataSource = dtsConcursos
    IndexFieldNames = 'HANDLE_CONCURO'
    MasterFields = 'HANDLE'
    Parameters = <>
    Left = 200
    Top = 80
    object GanhadoresHANDLE: TAutoIncField
      FieldName = 'HANDLE'
      ReadOnly = True
    end
    object GanhadoresHANDLE_CONCURO: TIntegerField
      FieldName = 'HANDLE_CONCURO'
    end
    object GanhadoresGANHADORES_SENA: TIntegerField
      FieldName = 'GANHADORES_SENA'
    end
    object GanhadoresRATEIO_SENA: TFloatField
      FieldName = 'RATEIO_SENA'
    end
    object GanhadoresGANHADORES_QUINA: TIntegerField
      FieldName = 'GANHADORES_QUINA'
    end
    object GanhadoresRATEIO_QUINA: TFloatField
      FieldName = 'RATEIO_QUINA'
    end
    object GanhadoresGANHADORES_QUADRA: TIntegerField
      FieldName = 'GANHADORES_QUADRA'
    end
    object GanhadoresRATEIO_QUADRA: TFloatField
      FieldName = 'RATEIO_QUADRA'
    end
    object GanhadoresI_USU: TStringField
      FieldName = 'I_USU'
      Size = 50
    end
    object GanhadoresI_DATA: TDateTimeField
      FieldName = 'I_DATA'
    end
  end
  object Horizontal: TADODataSet
    Connection = ConexaoBanco
    CursorType = ctStatic
    CommandText = 'select * from HORIZONTAL'
    DataSource = dtsConcursos
    IndexFieldNames = 'HANDLE_CONCURSO'
    MasterFields = 'HANDLE'
    Parameters = <>
    Left = 272
    Top = 80
    object HorizontalHANDLE: TAutoIncField
      FieldName = 'HANDLE'
      ReadOnly = True
    end
    object HorizontalHANDLE_CONCURSO: TIntegerField
      FieldName = 'HANDLE_CONCURSO'
    end
    object HorizontalHORIZONTAL_1: TStringField
      FieldName = 'HORIZONTAL_1'
      Size = 1
    end
    object HorizontalHORIZONTAL_2: TStringField
      FieldName = 'HORIZONTAL_2'
      Size = 1
    end
    object HorizontalHORIZONTAL_3: TStringField
      FieldName = 'HORIZONTAL_3'
      Size = 1
    end
    object HorizontalHORIZONTAL_4: TStringField
      FieldName = 'HORIZONTAL_4'
      Size = 1
    end
    object HorizontalHORIZONTAL_5: TStringField
      FieldName = 'HORIZONTAL_5'
      Size = 1
    end
    object HorizontalFREQUENCIA: TIntegerField
      FieldName = 'FREQUENCIA'
    end
    object HorizontalATRAZO: TIntegerField
      FieldName = 'ATRAZO'
    end
    object HorizontalI_USU: TStringField
      FieldName = 'I_USU'
      Size = 50
    end
    object HorizontalI_DATA: TDateTimeField
      FieldName = 'I_DATA'
    end
  end
  object Intervalos: TADODataSet
    Connection = ConexaoBanco
    CursorType = ctStatic
    CommandText = 'select * from INTERVALOS'
    DataSource = dtsConcursos
    IndexFieldNames = 'HANDLE_CONCURSO'
    MasterFields = 'HANDLE'
    Parameters = <>
    Left = 120
    Top = 192
    object IntervalosHANDLE: TAutoIncField
      FieldName = 'HANDLE'
      ReadOnly = True
    end
    object IntervalosHANDLE_CONCURSO: TIntegerField
      FieldName = 'HANDLE_CONCURSO'
    end
    object IntervalosINTERVALO_1: TIntegerField
      FieldName = 'INTERVALO_1'
    end
    object IntervalosINTERVALO_2: TIntegerField
      FieldName = 'INTERVALO_2'
    end
    object IntervalosINTERVALO_3: TIntegerField
      FieldName = 'INTERVALO_3'
    end
    object IntervalosINTERVALO_4: TIntegerField
      FieldName = 'INTERVALO_4'
    end
    object IntervalosINTERVALO_5: TIntegerField
      FieldName = 'INTERVALO_5'
    end
    object IntervalosSOMA_INTERVALO: TIntegerField
      FieldName = 'SOMA_INTERVALO'
    end
    object IntervalosFREQUENCIA: TIntegerField
      FieldName = 'FREQUENCIA'
    end
    object IntervalosATRAZO: TIntegerField
      FieldName = 'ATRAZO'
    end
    object IntervalosCLASSIFICACAO: TStringField
      FieldName = 'CLASSIFICACAO'
      Size = 255
    end
    object IntervalosI_USU: TStringField
      FieldName = 'I_USU'
      Size = 50
    end
    object IntervalosI_DATA: TDateTimeField
      FieldName = 'I_DATA'
    end
  end
  object ImpResultados: TADODataSet
    Connection = ConexaoBanco
    CursorType = ctStatic
    CommandText = 'select * from IMP_RESULTADOS'
    Parameters = <>
    Left = 41
    Top = 192
    object ImpResultadosCONCURSO: TIntegerField
      FieldName = 'CONCURSO'
    end
    object ImpResultadosDATA_SORTEIO: TDateTimeField
      FieldName = 'DATA_SORTEIO'
    end
    object ImpResultadosPRIMEIRA_DEZENA: TIntegerField
      FieldName = 'PRIMEIRA_DEZENA'
    end
    object ImpResultadosSEGUNDA_DEZENA: TIntegerField
      FieldName = 'SEGUNDA_DEZENA'
    end
    object ImpResultadosTERCEIRA_DEZENA: TIntegerField
      FieldName = 'TERCEIRA_DEZENA'
    end
    object ImpResultadosQUARTA_DEZENA: TIntegerField
      FieldName = 'QUARTA_DEZENA'
    end
    object ImpResultadosQUINTA_DEZENA: TIntegerField
      FieldName = 'QUINTA_DEZENA'
    end
    object ImpResultadosSEXTA_DEZENA: TIntegerField
      FieldName = 'SEXTA_DEZENA'
    end
    object ImpResultadosARRECADACAO_TOTAL: TFloatField
      FieldName = 'ARRECADACAO_TOTAL'
    end
    object ImpResultadosGANHADORES_SENA: TIntegerField
      FieldName = 'GANHADORES_SENA'
    end
    object ImpResultadosRATEIO_SENA: TFloatField
      FieldName = 'RATEIO_SENA'
    end
    object ImpResultadosGANHADORES_QUINA: TIntegerField
      FieldName = 'GANHADORES_QUINA'
    end
    object ImpResultadosRATEIO_QUINA: TFloatField
      FieldName = 'RATEIO_QUINA'
    end
    object ImpResultadosGANHADORES_QUADRA: TIntegerField
      FieldName = 'GANHADORES_QUADRA'
    end
    object ImpResultadosRATEIO_QUADRA: TFloatField
      FieldName = 'RATEIO_QUADRA'
    end
    object ImpResultadosACUMULADO: TStringField
      FieldName = 'ACUMULADO'
      Size = 3
    end
    object ImpResultadosVALOR_ACUMULADO: TFloatField
      FieldName = 'VALOR_ACUMULADO'
    end
    object ImpResultadosESTIMATIVA_PREMIO: TFloatField
      FieldName = 'ESTIMATIVA_PREMIO'
    end
    object ImpResultadosACUMULADO_NATAL: TFloatField
      FieldName = 'ACUMULADO_NATAL'
    end
  end
  object Vertical: TADODataSet
    Connection = ConexaoBanco
    CursorType = ctStatic
    CommandText = 'select * from VERTICAL'
    DataSource = dtsConcursos
    IndexFieldNames = 'HANDLE_CONCURSO'
    MasterFields = 'HANDLE'
    Parameters = <>
    Left = 200
    Top = 192
    object VerticalHANDLE: TAutoIncField
      FieldName = 'HANDLE'
      ReadOnly = True
    end
    object VerticalHANDLE_CONCURSO: TIntegerField
      FieldName = 'HANDLE_CONCURSO'
    end
    object VerticalVERTICAL_1: TStringField
      FieldName = 'VERTICAL_1'
      Size = 1
    end
    object VerticalVERTICAL_2: TStringField
      FieldName = 'VERTICAL_2'
      Size = 1
    end
    object VerticalVERTICAL_3: TStringField
      FieldName = 'VERTICAL_3'
      Size = 1
    end
    object VerticalVERTICAL_4: TStringField
      FieldName = 'VERTICAL_4'
      Size = 1
    end
    object VerticalVERTICAL_5: TStringField
      FieldName = 'VERTICAL_5'
      Size = 1
    end
    object VerticalVERTICAL_6: TStringField
      FieldName = 'VERTICAL_6'
      Size = 1
    end
    object VerticalFREQUENCIA: TIntegerField
      FieldName = 'FREQUENCIA'
    end
    object VerticalATRAZO: TIntegerField
      FieldName = 'ATRAZO'
    end
    object VerticalI_USU: TStringField
      FieldName = 'I_USU'
      Size = 50
    end
    object VerticalI_DATA: TDateTimeField
      FieldName = 'I_DATA'
    end
  end
  object Vizinhos: TADODataSet
    Connection = ConexaoBanco
    CursorType = ctStatic
    CommandText = 'select * from VIZINHOS'
    DataSource = dtsConcursos
    IndexFieldNames = 'HANDLE_CONCURSO'
    MasterFields = 'HANDLE'
    Parameters = <>
    Left = 272
    Top = 192
    object VizinhosHANDLE: TAutoIncField
      FieldName = 'HANDLE'
      ReadOnly = True
    end
    object VizinhosHANDLE_CONCURSO: TIntegerField
      FieldName = 'HANDLE_CONCURSO'
    end
    object VizinhosVALOR_DEZENA: TIntegerField
      FieldName = 'VALOR_DEZENA'
    end
    object VizinhosPRIMEIRA_DEZENA: TIntegerField
      FieldName = 'PRIMEIRA_DEZENA'
    end
    object VizinhosSEGUNDA_DEZENA: TIntegerField
      FieldName = 'SEGUNDA_DEZENA'
    end
    object VizinhosTERCEIRA_DEZENA: TIntegerField
      FieldName = 'TERCEIRA_DEZENA'
    end
    object VizinhosQUARTA_DEZENA: TIntegerField
      FieldName = 'QUARTA_DEZENA'
    end
    object VizinhosQUINTA_DEZENA: TIntegerField
      FieldName = 'QUINTA_DEZENA'
    end
    object VizinhosSEXTA_DEZENA: TIntegerField
      FieldName = 'SEXTA_DEZENA'
    end
    object VizinhosFREQUENCIA: TIntegerField
      FieldName = 'FREQUENCIA'
    end
    object VizinhosATRAZO: TIntegerField
      FieldName = 'ATRAZO'
    end
    object VizinhosPOSSUI_VIZINHOS: TStringField
      FieldName = 'POSSUI_VIZINHOS'
      Size = 3
    end
    object VizinhosTIPO_VIZINHO: TStringField
      FieldName = 'TIPO_VIZINHO'
      Size = 255
    end
    object VizinhosI_USU: TStringField
      FieldName = 'I_USU'
      Size = 50
    end
    object VizinhosI_DATA: TDateTimeField
      FieldName = 'I_DATA'
    end
  end
  object dxSkinController1: TdxSkinController
    SkinName = 'Sharp'
    Left = 608
    Top = 328
  end
  object cxLookAndFeelController1: TcxLookAndFeelController
    SkinName = 'Sharp'
    Left = 496
    Top = 328
  end
  object qAuxiliar: TADODataSet
    Connection = ConexaoBanco
    Parameters = <>
    Left = 120
    Top = 16
  end
  object dtsConcursos: TDataSource
    DataSet = Concursos
    Left = 40
    Top = 136
  end
  object dtsDezenas: TDataSource
    DataSet = Dezenas
    Left = 120
    Top = 136
  end
  object dtsGanhadores: TDataSource
    DataSet = Ganhadores
    Left = 200
    Top = 136
  end
  object dtsHorizontal: TDataSource
    DataSet = Horizontal
    Left = 272
    Top = 136
  end
  object dtsImpResultados: TDataSource
    DataSet = ImpResultados
    Left = 40
    Top = 248
  end
  object dtsIntervalos: TDataSource
    DataSet = Intervalos
    Left = 120
    Top = 248
  end
  object dtsVertical: TDataSource
    DataSet = Vertical
    Left = 200
    Top = 248
  end
  object dtsVizinhos: TDataSource
    DataSet = Vizinhos
    Left = 272
    Top = 248
  end
  object ADOCommand1: TADOCommand
    Connection = ConexaoBanco
    Parameters = <>
    Left = 184
    Top = 16
  end
end
